perm filename SMOOTH[4,ALS] blob
sn#051777 filedate 1973-07-01 generic text, type T, neo UTF8
00100 PROCEDURE SMOOTH
00200 BEGIN "SMOOTH"
00300
00400 INTEGER M,N,P,R,X1,X2,X3,X4,D1,D2,D3,D4;
00500
00600 X1←K LSH (-N2-N3-N4); X2←(K LSH (-N3-N4)) LAND MASK[N2];
00700 X3←(K LSH (-N4) LAND MASK[N3]; X4←K LAND MASK[S4];
00800
00900 S1←S2←S3←S4←SUM←0;
01000 IF X1>0 THEN BEGIN M←L-(1 LSH (N2+N3+N4); N←K-8i lsh (n2;n3;n4);
01100 NEW+LDB(POINT(9,TABLES[M],8));
01200 OLD←OLD+LDB(POINT(9,RES[N],8)); S1←S1+(OLD LSH 5)+NEW;
01300 SUM←SUM+S1; END;
01400